home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug232 / radian.st < prev    next >
Text File  |  1987-06-17  |  512b  |  28 lines
  1. Class Radian :Magnitude
  2. | value |
  3. [
  4.         new: x
  5.                 value <- <NormalizeRadian (x asFloat) >
  6.  
  7. |    < arg
  8.         ^ value < arg asFloat
  9.  
  10. |    = arg
  11.         ^ value = arg asFloat
  12.  
  13. |       sin
  14.                 ^ <Sin value>
  15.  
  16. |       cos
  17.                 ^ <Cos value>
  18.  
  19. |       tan
  20.                 ^ <Sin value> / <Cos value>
  21.  
  22. |       asFloat
  23.                 ^ value
  24.  
  25. |       printString
  26.                 ^ value asString , ' radians'
  27. ]
  28.